home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
pascalt2.zip
/
STRINGS.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-01-15
|
472b
|
17 lines
(* Chapter 7 - Program 2 *)
program TURBO_Pascal_Strings;
var First_Name : string[10];
Initial : char;
Last_Name : string[12];
Full_Name : string[25];
begin (* main program *)
First_Name := 'John';
Initial := 'Q';
Last_Name := 'Doe';
Writeln(First_Name,Initial,Last_Name);
Full_Name := First_Name + ' ' + Initial + ' ' + Last_Name;
Writeln(Full_Name);
end. (* main program *)